.DO External 

. LSTON 
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;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

• > 

; > Hodu i e : Spare 

• j. 

;> This module contains all the routines that pertain 

;> to the management of the spare table. 

• > 

;> PROCEDURE SprBlock< SpareType : BIT { !r8/bit ? } > 

;> PROCEDURE SpareBlock< BlocklsSpare : BOOLEAN { !r8/bit 4 } > 

; > 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO External 

.LSTON 

. Page 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

; > Procedure : SprB I ock { Spare R B I ock } 

- \ 

; > Th i s procedure i s respons i b I e for re I oca t i ng a I og i ca I 

;> block { note that the block type can be USER, or SPARETRBLE > 

;> from either the user data area OR the spare area to 

;> some location within the spare area. 

;> This procedure is capable of gobbling up ALL available spare 

;> block space and will ABORT if no space is available. 

;> Inputs: 

;> SpareType : BIT { !rfl/bit 4 > 

;> Outputs: { none } 

;> Algorithm: 

• > 

;> BEGIN 

\> \ F < SpareType = Spare > 

;> THEN 

;> IF < BlkStat.SpareCode = BadBlock ) 

;> THEN 

;> DeieteSpare 

; > SpareCount< DecJBadCnt ) 

;> BlockMoveC UBuffeH, Buffer2 > 

;>■ IF NOT< UrUer jCommon > 

; > THEN 

;> SpareBiock< SpareType > 

;> ELSE SpareBlockC BadBiockType ) 

;> UpDate^SprTbl 

;> BIockMoMeC Buffer2, RBufferl > 

;> END 

• > 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO Internal 

.LSTON 

.Paqe 

.FIN 



SprB I ock : 





Push 
Push 
Push 
Push 


Cylinder ;save current seek address 

Cyl inder+t 

Head 

Sector 




Tm 
Jr 


!rflj,*Spare ; IF SpareType = Spare 
Z,SprBlk_1 




Cal I 

Cp 

Jr 


GetJSpr_Code 
!rO,*B_Block 
Nz.SprBlk^ 




Cal 1 
Ld 
Ld 
Ld 

Cai 1 


DeleteSpare 

!rO,*Dec_BadCnt 

! r 2 , * . H 1 BVTE . Spar eCoun t 

! r3, * . LOWBVTE . SpareCount 

BankJCal 1 


SprBlk_2: 


Ca! I 

Ld 

Ld 


i 

ReSeek 

!r4,»10 ;bang on this block for a while 
!r5,*0 ; i r»i t error count 


Spr_MrUer : 


Ld 
Ld 
Cal I 


!r2,».HIBVTE. Buf2_To_WrBuf 
! r3 , * . LOWBVTE . Buf 2_To_WrBuf 
BankJCal 1 




Ld 
Ca! 1 
Jr- 


RdErrCnt,*10 ; assume fai lure 

UrUer JCommon 

Hz,SprWrU_t 




Ld 
And 
Cp 
Jr 


!rQ,RdErrCnt 

!rG,*$OF ;mask off status info 
!rQ,*SprThresh 

Gt,SprBlk_1 ; spare the block 


SprUrU_1: 


Rdd 
D j nz 


! r 5 , ! r ; bump cumu 1 a t i ye error coun t 
!r-4,Spr_UrUer 




Cp 
Jr 


! r 5, *Spr Thresh ;take a percentage of total reads 
La^SprBlk-.S 


SprBik_1: 


Call 


SpareB I ock 


SprBlk_3: 


Ld 
Ld 

Cal 1 
Ld 
Ld 

Cal 1 


!r2,*.HIBYTE. UpBate_JSprTbl 
! r3 ,*. LOWBVTE . UpBateJSprTbi 
BankJCal 1 

!r2,*.HIBVTE. Buf2_To_RBuf 
!r3.,«. LOWBVTE. Buf2_To_RBuf 
BankJCal 1 


SprBlkJHet : 


Pop 

Pop 

Pop 

Pop 

Cal 1 

Ret 


!rF ; retrieve current seek address 
IrE ;head 
!rB ; lo-cyl 
!rC ;hi-cyl 

Seek_Uector ;put us back where we were! 



. LSTOFF 

.DO External 
. LSTON 
. Page 

;>>>>>>>>>>:>>>>>>>>>>>>>>>>>>>>>> 



; > Procedure : SpareB I ock 

; > 

;> This function performs the actual sparing. 

; > 

;> Inputs: 

;> SpareType : BIT { !rfl/bit 4 } 

• j. 

;> Outputs: { none } 

; > 

;> Local Uariables: 

;> SparingftSpare : BOOLERN { !r9 } 

;> SpareLocation : BYTE { !r4 } 

;> Error : BOOLEAN { !r5 } 

- > 

;> Algorithm: 

; > 

;> BEGIN 

;> IF < BlkStat.SpareCode = BadBlock ) 

; > THEN 

;> RddSpareC GetNe«>Spare< Load-Logical >, Load-Logical, BadBlock ) 

;> SpareCount< lnc_BadCnt > 

; > ELSE 

; > REPERT 

;> IF < BlkStat.SpareCode = Spare > 

; > THEN 

;> Location := SrchSpTabK LoadJ_ogical ) 

;> Ptr := Get_Ptr< Location > 

;> Ptr*. Useable := False 

;> SpareCount< Inc-SprCnt > 

; > B I kS ta t . Spar eCode : = SpareB I ock 

;> Location := GetNewSpare< Load-Logical > 

;> flddSpare< Location, Load JLog i ca I , SpareB lock > 

;> SeekJType := flccessJOf fset 

;> Seek( 6et_Cyl_H^S< HulRCLn< Location ) > > 

;> UNTIL WrUer-Common 

; > END 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>:>>>> 
. LSTOFF 
FIN 

.DO Internal 

. LSTON 

.Page 

.FIN 

SpareB I ock: 



Ld 


!r0,#1 ;byte 1 


Ld 


1 r 1 , *Stat_Spare 


Cai 1 


SetStatus 


Tm 


!rfi.,*Spare 


Jr 


Nz,S_Blk_£pt 


Ca i i 


Get_SprJCode 


Cp 


!rG,*B_Biock 


Jr 


Z,S_B lk_End 


Cai 1 


Load-Log i ca I 


Cai I 


GetNecuSpare 


Ld 


!rF, !r0 


Ld 


ir8..*BadBlock 


Cai 1 


RddSpare 


Ld 


lrO,*lncJBadCnt 



Ld !r2,*.HIBVTE. SpareCount 

Ld !r3,*.L0UBVTE. SpareCount 

Call Bank-Call 

Jr S_B 1 k_End 

S_B i k_Rp t : Ca li Load_Log i ca I 

Ca I I SprJEnter 

Jr Nz,S_Blk_End 

Cp IrG^Error+Ex-ReadErr ; check for sparing threshold 

Jr Nz,S_Blk_Rpt 

S_B I k_£nd : Jp BankJtet 

.Page 

SprJEnter: Call Get_JSpr_£ode 

Cp !rO,*S_Block 

Jr Nz.,S_Blk_Jtew 

Call ExtPushJJector 

Call SrchSpTabl 

Push !r1 ;save possible ptr to element 

Push F ! ags 

Cal I ExtPop_Uector 

Pop F I ags 

Pop !r1 

Jr Hz,S_BlkJUnuse 

Call Abort 

S_B I kJJnuse : Ld ! rO , I r 1 

Cal I Get_Ptr 

Lde !rO,£M!r2 ;Element.Useable := False 

find !rO,*$FF-Useable 

Lde e!!r2, !r0 

S_B I k_lie».u : Ld ! rO , * I nc_SprCn t 

Ld !r2,*.HIBVTE. SpareCount 

Ld !r3 # ».L0MBVTE. SpareCount 

Call Bank-Call 

find BlkStat,*$FC ;mask out the SpareCode stuff 

Or BlkStat ,*S_Biock 

Call GetNewSpare 

Ld IrF, irG 

Ld ! r8, #Spare 

Call RddSpare 

Ld Seek_Type ^Recess JO ff set 

Ld !rG, !rF ;get Location back 

Inc !r0 ;count 1..76 

Ld ?r2,*.HIBS'TE. MulRO_m 

Ld !r3,#.L0UBVTE. HulRO_n> 

Call BankJCall 

Ld !r2,*.HIBVTE. GetJJy I_H_S 

Ld !r3,*.LGI4BVTE. Get_£yl_R_S 

Call BankJCal I 

Ld IrGJrF 

Ld !r2,«.HIBVTE. Rehap_Sector 

Ld !r3,*.LGI4BVTE. ReMapJSector 



ca I i Bank_ca I l 

Ld IrFJrO 

Ca! I Seek_Uector 

Cp DataType , *User-_type 

Jr Z,SprJ_dBuf2 

Ld ! r"2 , *. Hi BYTE. SprChkSum ; calculate new checkbgte 

Ld !r-3,#.LQWBVTE. SprChkSum 

Call BankJCafl 

Ld !r2,*.HIBVTE. Spr_To_MrBuf 

Ld !r3,«.L0WBVTE. Spr_To_WrBuf 

Jr Spr_LdUrBuf 

Spr_LdBuf2: Ld !r2,*.HJBVTE. Buf2_TG_i4rBuf 

Ld !r3,#.LOl4BYTE. Buf2_To_WrBuf 

Spr_LdWrBuf: Call BankJCall 

Cal I UrUerJCoiftmon 

Jp Bank_Ret 



. LSTOFF 



